Het volgende voorbeeld laat zien hoe u met behulp van WithEvents en Set programmacode kunt opstellen voor een gebeurtenisprocedure Click. U ziet dat de objectverwijzing ce
wordt gebruikt als naam voor de gebeurtenis Click in plaats van de menunaam Extra.
Private WithEvents ce As CommandBarEvents
Sub Test()
Dim c As CommandBarControl
Set c = Application.VBE.CommandBars("Extra").Controls(1)
Set ce = Application.VBE.Events.CommandBarEvents(c)
End Sub
Private Sub ce_Click(ByVal CommandBarControl As Object, Handled As Boolean, CancelDefault As Boolean)
' Put event-handling code here
End Sub